home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cmeter.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-22  |  4.1 KB  |  131 lines
  1. VERSION 2.00
  2. Begin Form frmMeter 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Progress Indicator (Meter) Demo"
  5.    ClientHeight    =   2100
  6.    ClientLeft      =   1140
  7.    ClientTop       =   3525
  8.    ClientWidth     =   5700
  9.    ClipControls    =   0   'False
  10.    Height          =   2505
  11.    Left            =   1080
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2100
  14.    ScaleWidth      =   5700
  15.    Top             =   3180
  16.    Width           =   5820
  17.    Begin CUAStatus sts1 
  18.       Align           =   2  'Align Bottom
  19.       BackColor       =   &H00C0C0C0&
  20.       Height          =   330
  21.       Left            =   0
  22.       TabIndex        =   5
  23.       Top             =   1770
  24.       Width           =   5700
  25.       Begin CUAMeter mtr1 
  26.          BackColor       =   &H00C0C0C0&
  27.          BorderStyle     =   7  'Inset single
  28.          FontBold        =   0   'False
  29.          FontItalic      =   0   'False
  30.          FontName        =   "MS Sans Serif"
  31.          FontSize        =   8.25
  32.          FontStrikethru  =   0   'False
  33.          FontUnderline   =   0   'False
  34.          ForeColor       =   &H00800000&
  35.          Height          =   225
  36.          Index           =   1
  37.          Left            =   210
  38.          Meter3D         =   -1  'True
  39.          Percent         =   0   'False
  40.          Segmented       =   -1  'True
  41.          TabIndex        =   6
  42.          Top             =   60
  43.          Value           =   50
  44.          Width           =   5265
  45.       End
  46.    End
  47.    Begin CUAMeter mtr1 
  48.       BorderStyle     =   1  'Fixed Single
  49.       ForeColor       =   &H000000FF&
  50.       Height          =   1485
  51.       Index           =   2
  52.       Left            =   135
  53.       Orientation     =   1  'Vertical
  54.       TabIndex        =   4
  55.       Top             =   120
  56.       Value           =   50
  57.       Width           =   570
  58.    End
  59.    Begin CUACommand cmdOK 
  60.       Caption         =   "OK"
  61.       Default         =   -1  'True
  62.       Height          =   345
  63.       Left            =   4290
  64.       StandardButton  =   1  'OK
  65.       TabIndex        =   2
  66.       Top             =   135
  67.       Width           =   1260
  68.    End
  69.    Begin CUACommand cmdTry 
  70.       Caption         =   "Show me!"
  71.       Height          =   345
  72.       Left            =   3705
  73.       TabIndex        =   1
  74.       Top             =   1275
  75.       Width           =   1845
  76.    End
  77.    Begin CUAMeter mtr1 
  78.       BorderStyle     =   1  'Fixed Single
  79.       FontBold        =   0   'False
  80.       FontItalic      =   0   'False
  81.       FontName        =   "MS Sans Serif"
  82.       FontSize        =   8.25
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       ForeColor       =   &H00C0C0C0&
  86.       Height          =   285
  87.       Index           =   0
  88.       Left            =   945
  89.       Meter3D         =   -1  'True
  90.       TabIndex        =   0
  91.       Top             =   1320
  92.       Value           =   40
  93.       Width           =   2535
  94.    End
  95.    Begin CUALabel lbl 
  96.       Caption         =   "Meters are commonly used to show the progress of an ongoing process, for example the copying of a diskette. If the amount of work can be estimated and takes longer than three seconds, this is highly recommended!"
  97.       FontBold        =   0   'False
  98.       FontItalic      =   0   'False
  99.       FontName        =   "MS Sans Serif"
  100.       FontSize        =   8.25
  101.       FontStrikethru  =   0   'False
  102.       FontUnderline   =   0   'False
  103.       ForeColor       =   &H00000080&
  104.       Height          =   1050
  105.       Index           =   6
  106.       Left            =   915
  107.       TabIndex        =   3
  108.       Top             =   90
  109.       Width           =   3270
  110.    End
  111. Option Explicit
  112. Sub cmdOK_Click ()
  113.    Unload Me
  114. End Sub
  115. Sub cmdTry_Click ()
  116.    Dim I%
  117.    'If mtr1(0) = mtr1(0).Max Then
  118.    '   For I = mtr1(0).Max To mtr1(0).Min Step -1
  119.    '      mtr1(0) = I
  120.    '      mtr1(1) = I
  121.    '      mtr1(2) = I
  122.    '   Next
  123.    'Else
  124.       For I = mtr1(0).Min To mtr1(0).Max
  125.          mtr1(0) = I
  126.          mtr1(1) = I
  127.          mtr1(2) = I
  128.       Next
  129.    'End If
  130. End Sub
  131.